home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / trektriv.iii (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  7KB  |  236 lines
  1. 0 REM SEND EMAIL TO: "THE ROCK" ON PLINK
  2. 1 REM  OR GREGORY J. GRESH ON GENIE
  3. 2 REM
  4. 10 CLR:PRINT CHR$(147)
  5. 20 GOSUB1790:GOSUB2060:GOSUB2010:PRINT"[147]"
  6. 30 FOR I=1 TO 30
  7. 40 :  READ Q$,A1$,A2$,A3$,A4$,C$
  8. 50 :  A=0
  9. 60 :  PRINT I"[157]. ";Q$
  10. 70 :  PRINTTAB(5)A1$:PRINTTAB(5)A2$:PRINTTAB(5)A3$:PRINTTAB(5)A4$
  11. 80 :  INPUT"     ANSWER QUESTION";R$
  12. 90 :  IF R$<>C$ THEN160
  13. 100 : C=C+1
  14. 110 : PRINT
  15. 120 : PRINT "THAT IS CORRECT!"
  16. 130 : FORX=1TO900:NEXTX:PRINTCHR$(147)
  17. 140 NEXT I
  18. 150 GOTO210 
  19. 160 A=A+1
  20. 170 IF A=1 THEN190 
  21. 180 PRINT"THE ANSWER IS: ";C$:W=W+1:GOTO200
  22. 190 PRINT"TRY AGAIN.":GOTO60 
  23. 200 GOTO130 
  24. 210 T=C+W
  25. 220 PC=C/T:TC=PC*100
  26. 230 IF T=C THEN310 
  27. 240 IF TC>90 THEN270 
  28. 250 IF TC > 70 AND TC < 90 THEN280 
  29. 260 GOTO290 
  30. 270 PRINT"YOU ARE A TREKKER FOR SURE.":GOTO380 
  31. 280 PRINT"YOU OCCASIONALLY WATCH STAR TREK.":GOTO380 
  32. 290 PRINT"YOU VERY RARELY[146] KNOW ANYTHING ABOUT STAR TREK."
  33. 300 PRINT"WATCH MORE STAR TREK!":GOTO380 
  34. 310 PRINT"YOU GOT ALL";T;" QUESTIONS CORRECT!"
  35. 320 PRINT"YOU ARE A TRUE TREKKER BEYOND ANY DOUBT."
  36. 330 PRINT"CONTRATULATIONS!":GOTO380 
  37. 340 PRINT CHR$(147)
  38. 350 PRINT"WARP FACTOR 4........";:FORQW=1TO2500:NEXTQW:PRINT"ENGAGE!   "
  39. 360 END
  40. 370 FORX=1TO4000:NEXTX:GOTO340 
  41. 380 PRINT"YOU GOT";TC;"[157]% CORRECT."
  42. 390 PRINT"YOU GOT";W;"QUESTIONS INCORRECT."
  43. 400 PRINT"YOU GOT";C;"QUESTIONS CORRECT."
  44. 410 GOTO370 
  45. 420 REM **** MUSIC DATA ****
  46. 430 DATA 47,3.5,54,.5,59,6
  47. 440 DATA 58,2,54,1,51,1,56,1,61,9,0,2,61,1,65,10
  48. 450 DATA 0,4,0,4,0,0,-1
  49. 460 REM DATA QUESTIONS
  50. 470 REM **** QUESTION 1 ****
  51. 480 DATA"WHO IS THE NEW 'NUMBER ONE'?                "
  52. 490 DATA "A) LT. LAFORGE"
  53. 500 DATA"B) DATA"
  54. 510 DATA C) CAPT PICARD
  55. 520 DATA D) WILLIAM RIKER,D
  56. 530 REM **** QUESTION 2 ****
  57. 540 DATA "WHO IS THE CHIEF MEDICAL OFFICER?"
  58. 550 DATA"A) DR. MCCOY"
  59. 560 DATA"B) DR. MARCUS"
  60. 570 DATA"C) DR. CRUSHER"
  61. 580 DATA"D) DR. THOR",C
  62. 590 REM *** QUESTION 3 ****
  63. 600 DATA "WHICH CREW MEMBER CAN READ THOUGHTS?"
  64. 610 DATA A) RIKER
  65. 620 DATA B) TROI
  66. 630 DATA C) DATA
  67. 640 DATA D) YAR,B
  68. 650 REM **** QUESTION 4 ****
  69. 660 DATA"WHAT IS HER TITLE?"
  70. 670 DATA A) COUNCILER
  71. 680 DATA B) COMMUNICATIONS
  72. 690 DATA C) NEGOTIATOR
  73. 700 DATA D) NAVIGATOR,A
  74. 710 REM **** QUESTION 5 ****
  75. 720 DATA"WHO WAS LT. YAR?"
  76. 730 DATA A) SECURITY OFFICER
  77. 740 DATA B) ENGINEERING OFFICER
  78. 750 DATA C) SCIENCE OFFICER
  79. 760 DATA D) A KLINGON ORPHAN,A
  80. 770 REM **** QUESTION 6 ****
  81. 780 DATA"WHO WAS FOUND OUTSIDE ABANDONED?"
  82. 790 DATA A) WARF
  83. 800 DATA B) WHITE
  84. 810 DATA C) YAR
  85. 820 DATA D) DATA,D
  86. 830 REM **** QUESTION 7 ****
  87. 840 DATA"WHAT IS CAPT PICARD'S FIRST NAME?"
  88. 850 DATA A) BILL
  89. 860 DATA B) PHILLIP
  90. 870 DATA C) JEAN
  91. 880 DATA D) NICOLUS,C
  92. 890 REM **** QUESTION 8 ****
  93. 900 DATA "WHAT IMPERSONATES HUMANS?"
  94. 910 DATA A) M
  95. 920 DATA B) X
  96. 930 DATA C) V
  97. 940 DATA D) Q,D
  98. 950 REM **** QUESTION 9 ****
  99. 960 DATA "HOW MANY CREW MEMBERS WERE              'ORPHANS'?"
  100. 970 DATA A) THREE
  101. 980 DATA B) TWO
  102. 990 DATA C) ONE
  103. 1000 DATA D) ZERO,A
  104. 1010 REM **** QUESTION 10 ***
  105. 1020 DATA "WHO INVENTED A REPULSER TRACTOR         BEAM?"
  106. 1030 DATA A) CRUSHER
  107. 1040 DATA B) WARF
  108. 1050 DATA C) Q
  109. 1060 DATA D) RIKER,A
  110. 1070 REM **** QUESTION 11 ***
  111. 1080 DATA WHO HAS BEEN BLIND SINCE BIRTH?
  112. 1090 DATA A) PIKE
  113. 1100 DATA B) LAFORGE
  114. 1110 DATA C) WARF
  115. 1120 DATA D) TROI,B
  116. 1130 REM **** QUESTION 12 ****
  117. 1140 DATA"WHAT IS THE NAME OF THE ENPERPRISES     SISTER SHIP"
  118. 1150 DATA A) EXCELCIER,B) ENTERPISE I
  119. 1160 DATA C) GRISSAM,D) NONE OF THE ABOVE,D
  120. 1170 REM *** QUESTION 13 ****
  121. 1180 DATA"WHO GAVE UP COMMAND TO SERVE ON THE     ENTERPRISE?"
  122. 1190 DATA A) PICCARD,B) RIKER,C) CRUSHER,D) LAFORGE,B
  123. 1200 REM **** QUESTION 14 ****
  124. 1210 DATA"WHICH CREW MEMBER WAS KILLED BY AN      EVIL BLACK TAR?"
  125. 1220 DATA A) YAR,B) TROI,C) LT WARF,D) LT SOO,A
  126. 1230 REM *** QUESTION 15 ****
  127. 1240 DATA "THAT SAME EPISODE, WHO WAS TRAPPED      IN A SPACE SHIP?"
  128. 1250 DATA A) YAR,B) TROI,C) LT WARF,D) LT SOO,B
  129. 1260 REM *** QUESTION 16 ****
  130. 1270 DATA"WHAT WAR WAS REKINDERED FROM THE        ORIGINAL SERIES?"
  131. 1280 DATA A) FEDER/KINGON,B) FEDER/ROMMULAN,C) FEDER/FERENGIE,D) NO WAR AT ALL,B
  132. 1290 REM **** QUESTION 17 ****
  133. 1300 DATA"A WAR MACHINE COMPUTER HAILED THE       ENTERPRISE FOR WHAT?"
  134. 1310 DATA A) A SALE,B) WAR,C) INFORMATION,D) WEAPONS,A
  135. 1320 REM **** QUESTION 18 ****
  136. 1330 DATA WHAT WAS THE SHAPE OF THE SALINE        LIFE FORM?
  137. 1340 DATA A) CRYSTAL,B) DIAMOND,C) OCTAGONAL,D) TUBULAR,A
  138. 1350 REM **** QUESTION 19 ****
  139. 1360 DATA"WHERE DID THAT LIFE-FORM GET ITS        POWER?"
  140. 1370 DATA A) SALINE
  141. 1380 DATA B) LIGHT
  142. 1390 DATA C) DILITHIUM
  143. 1400 DATA D) NUCLEAR,B
  144. 1410 REM **** QUESTION 20 ****
  145. 1420 DATA"WHAT WAS DATA'S BROTHER CALLED?"
  146. 1430 DATA A) HE HAD NO BROTHER,B) DATO,C) UNIX,D) LORR,D
  147. 1440 REM **** QUESTION 21 ****
  148. 1450 DATA"WHO OF THE FOLLOWING DISABLED THE       ENTERPRISE?"
  149. 1460 DATA A) CRUSHER,B) WARF, C) PICCARD, D) LAFORGE,A
  150. 1470 REM **** QUESTION 22 ****
  151. 1480 DATA"WHO HIJACKED THE ENTERPRISE?"
  152. 1490 DATA A) BINARDS,B) FERENGIES,C) KLINGONS,D) ROMMULANS,A
  153. 1500 REM **** QUESTION 23 ****
  154. 1510 DATA"WHAT WAS SO SPECIAL ABOUT THE           BINARDS?"
  155. 1520 DATA A) THEY WERE ALWAYS PAIRED
  156. 1521 DATA B) THEY WERE LINKED TO A COMPUTER
  157. 1522 DATA C) ALL OF THE ABOVE
  158. 1523 DATA D) NONE OF THE ABOVE,C
  159. 1530 REM **** QUESTION 24 ****
  160. 1540 DATAWHO DIDN'T WANT TO CHANGE WHEN          RIKER WAS GIVEN THE GIFT OF Q?
  161. 1550 DATA"A) DATA",B) LAFORGE
  162. 1555 DATA C) WESLEY CRUSHER,D) WARF,A
  163. 1560 REM **** QUESTION 25 ****
  164. 1570 DATA "THE INSECT PLANET WOULD NOT SPEAK       TO THE ENTERPRISE UNLESS.."
  165. 1580 DATA A) THEY STOPPED KILLING INSECTS,B) THEY GOT OUT OF RANGE
  166. 1585 DATA C) THEY RELEASED THEIR SHEILDS,D) THEY SPOKE THE LANGUAGE,D
  167. 1590 REM **** QUESTION 26 ****
  168. 1600 DATA"IN THE EPISODE WITH THE PLANET WHERE    LOVE IS FREE, WHAT WAS 'GOD'?"
  169. 1610 DATA A) GOD,B) A SPACESHIP
  170. 1615 DATA C) AN IDOL,D) AN ENTITY,D
  171. 1620 REM **** QUESTION 27 ****
  172. 1630 DATA"THAT SAME EPISODE, WHAT LAW DID         WESLEY CRUSHER BREAK?"
  173. 1640 DATA A) PLAYING ON A SUNDAY, B) KILLING FLOWERS,C) RUNNING ON A SUNDAY
  174. 1650 DATA D) WALKING ON THE GRASS,B
  175. 1660 REM **** QUESTION 28 ****
  176. 1670 DATA"THAT SAME EPISODE, WHAT WERE THEY       PLAYING?"
  177. 1680 DATA A) CATCH,B) FOOTBALL,C) BASEBALL,D) HOCKEY,A
  178. 1690 REM **** QUESTION 29 ****
  179. 1700 DATA WHY COULDN'T WARF PARTICIPATE IN        'FREE LOVE'?
  180. 1710 DATA A) HE DIDN'T CARE FOR IT,B) HE NEEDED A KLINGON WOMAN
  181. 1720 DATA C) HE WAS TOO POWERFUL,D) BOTH C & B,D
  182. 1730 REM **** QUESTION 30 ****
  183. 1740 DATA WHAT IS THE MOST DISTINCTIVE            FEATURE OF THE FERENGIES?
  184. 1750 DATA A) GREED,B) POWER-BASED,C) IGNORANCE,D) COLD BLOODED,A
  185. 1770 REM
  186. 1780 REM **** INTRODUCTION SCREEN ****
  187. 1790 REM
  188. 1800 POKE 53281,3:POKE 53280,6:POKE 646,11
  189. 1810 PRINT CHR$(147);
  190. 1820 C$ = "TREK TRIVIA III - THE NEXT GENERATION"
  191. 1830 C%=LEN(C$)
  192. 1840 FOR X=1 TO C%
  193. 1850 :   FOR V = 1 TO 5
  194. 1860 PRINT TAB((39-C%)/2+X) MID$(C$,X,1)"[145][157] "
  195. 1870 :   NEXT V:PRINT""
  196. 1880 NEXT X
  197. 1885 PRINT""
  198. 1890 PRINT"       ORIGINALLY PROGRAMMED AND"
  199. 1900 A$="CREATED BY DIANE & JOANNE NOTT"
  200. 1910 A%=LEN(A$)
  201. 1920 FOR X=1 TO A%
  202. 1930 : PRINT TAB((39-A%)/2)MID$(A$,X,1);
  203. 1940 : FOR D=1TO60:NEXT D
  204. 1950 NEXT X
  205. 1955 PRINT"           REVISION BY GREGORY J. GRESH"
  206. 1960 PRINT
  207. 1970 RETURN
  208. 1980 REM
  209. 1990 REM **** PROMPT TO BEGIN ****
  210. 2000 REM
  211. 2010 PRINT TAB(9)"PRESS RETURN[146][151] TO BEGIN.";
  212. 2020 GET AN$:IF AN$="" THEN2020
  213. 2030 IF AN$=CHR$(13) THEN RETURN
  214. 2040 GOTO2020 
  215. 2050 REM
  216. 2060 REM **** STAR TREK MUSIC ****
  217. 2070 REM
  218. 2080 M1=54272:FORII=M1 TO M1+28:POKE II,0:NEXT
  219. 2090 DIM F(3),V(3),AD(3),SR(3),S(99)
  220. 2100 T0=2^(1/12)
  221. 2110 FOR II=1 TO 3:A=7*II+M1-7:F(II)=A:V(II)=A+4:AD(II)=A+5:SR(II)=A+6:NEXT
  222. 2120 T=65535:FORI=99 TO 35STEP-1:S(I)=INT(T+.5):T=T/T0:NEXT
  223. 2130 POKEM1+24,15:RESTORE:O=-5:SS=100:GOSUB2180:SS=35:RETURN
  224. 2140 O=0:RESTORE:FORD=1 TO 1E9:READA:IFA>-1THENNEXT:GOTO540  THEME
  225. 2150 SS=50:GOSUB2180:SS=35:RETURN
  226. 2160 REM * PLAY TUNE *
  227. 2170 RESTORE:O=INT(21*RND(1)):REM LOG THEME
  228. 2180 FOR D=1 TO 3:POKEAD(D),2*16+4:NEXT:SR=12*16+10
  229. 2190 READ II:IFII<0 THEN RETURN
  230. 2200 C=C+1:IFC>3 THEN C=1
  231. 2210 IF II THEN II=II+O
  232. 2220 N1=S(II):HH=INT(N1/256):LL=N1-256*HH
  233. 2230 POKEF(C),LL:POKEF(C)+1,HH:POKESR(C),0:POKESR(C),SR:POKEV(C),33
  234. 2240 READ TT:FORD=20 TO SS*TT:NEXT:POKEV(C),32:GOTO2190
  235. 2250 :
  236.